Digitální fotografie a video/Digitalni-fotografie-a-video-covermount.bin/Aplikace/An/Kap_2/An_2_5.dxr/00008_Video 1.ls

Text File | 1998-05-19 | 913 b | 45 lines

property Znacka

on getPropertyDescriptionList
  set description to [:]
  addProp(description, #Znacka, [#comment: "Znacka:", #format: #integer, #default: 1])
  return description
end

on getBehaviorDescription
  return "Nájezd a klik"
end

on beginSprite me
  set the visible of sprite the spriteNum of me to 1
  set the movieTime of sprite 2 to 0
  set the movieRate of sprite 2 to 1
end

on endSprite me
  set the visible of sprite the spriteNum of me to 0
end

on mouseEnter me
  set the cursor of sprite the spriteNum of me to [member "ruka_1", member "ruka_2"]
end

on mouseLeave me
  set the cursor of sprite the spriteNum of me to -1
end

on mouseDown me
  puppetSound(1, "Klik")
end

on mouseUp me
  global Zapnuty_zvuk
  set the movieRate of sprite 2 to 0
  set the visible of sprite the spriteNum of me to 0
  if Zapnuty_zvuk then
    puppetSound(3, "Hudba")
  end if
  updateStage()
  go(Znacka)
end